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LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 
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(2) $3 Edit Mistery 
(3) DECLARATION 
(4) 1 § OTS fvi-t-19 - Long to text, 0 format 
(5) $< OTSSCVT_L_TZ = Long to text, 2 format 
(9) 1 pissyvl tele = Long to text, binary format 
(7) 44 Loces subroutines 
(8 5 OTSSCVT_L_TI = Long to text, I format 
(9) $ OTSSCVT_L_TU = Long to text, unsigned decimal format 
(10) 8 OTSSCVT_L_TL = Long to text, L format 
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Oooo 


SOCOOCCOCOVOOOSOOOOOOSooOSooO 


Oooo 
Soooooocoo 
COOOCOOCSCoO 


WR 9 ODONAUELS WN $0 ODNAULS WN OO OONAUES WN 2 OOONOUS wn 


BPE PE WWIWIWIWIW WII Inonononononononuynnd S 2 2 2 


COOooooooooooo: 
Sssssssss 
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RC 

LT = Convert manors to text, 0, Z, L, 8, U. I formats 

File: OTSCVTLT.MAR Edit: MDL1014 


SRARAAAAAAAAAEAAAETAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAEARAAEAAERAAAAEEAAEETE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED 


-* % 
:® a 
-* t 
‘® ® 
*@ ® 
is THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
is ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE 0 OTHER 
fe COPIES. THEREOF NAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY = 
;® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
:* TRANSFERRED. : 
°* ® 
j# THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE 
;® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
te CORPORATION. * 
:* ® 
*® ® 
*® ® 
°® ® 
* ® 
bd * 


NT 
DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


LAR RARARAAAALALAASLAASALAAALAAAL ALAS ELAS A RESALE SALE ASA RRS ARSE A RASA DS OS 


+ 

FACILITY: Language independent support Library 

ABSTRACT: 

Routines to convert values of any Length to text using 0 (octal), 

Z (hexadecimal), B (binary) and L (logical) formats. Also routines to 
convert byte, word and ibe integers to text using | (signed decimal) 
and unsigned decimal forma 


ENVIRONMENT: User Mode, AST Reentrant 


; AUTHOR: Steven B. Lionel, CREATION DATE: 21-Mar-1979 


pS. 
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TSSCVTLT = Convert longword to text, 0, 2, L, 8B, 16-SEP-1984 AX/VMS Macro V04-00 p OT! 
Bie edie Nistorg” Fee l8Re :F8i8a HO NTE Teese esr ee nans1 "2" 8, 


-SBTTL Edit History 

Original. Replaces FORSCNVO! - & egerer -1979 

Move V_FORCEPLUS to bit position L 25-July-1979 
reitt tATREOREr tee J, format a Use CASEB in 


ASE. SBL 31-Dec-1979 


oe 
oooo oOo 
oooo oOo 


- n 
- bo oo * hing for >128 arguments. SBL 31-Dec-1979 


$2 
¢} ; 1 
is : 1 4 
He: 
0 g : 1 $ Minor code improvements cour ae of Rich Grove. SBL 2-Jan-1980 
+ ¢ 3 7 aged e improvements. Make value_size of zero an error. 
3 =Jan= 
000 § ; 1-008 = Fix bug where e,0TS$CvT_t uf 986 3 arguments doesnt fetch 
3 the ue. ree 
000 28 3; 1-009 = Add OTSS$CVT 1 TB. SBL 6-Nov-1980 
00 9 ; 1-010 - Rake oisscvT CTI produce.» a ® blank field yhen valye is zero and 
00 60 ; int dig" ts is zero. 27 JAW 22-May-1981 
0 61 ; 1-011 - Aga” bi ‘offset and “fags coanekad to B, 0 and Z qonyers tens. SBL Gm July 
0000 6¢ 3 I-36 - Reverse order of bit_o {get a dotiegs parameters in B, 0 and Z. SBL 30-0c 
0000 63 ; 1-015 - Add OTSSCVT_L_TU. SBL 2 
0000 64 ; 1-014 - fix bug where “OTSSCVT “tue of % or 5 arguments doesnt fetch the 
0000 65 ; value. MDL 25-May-1 198%" 


Ea 


Oon 


ao 


000000000009 09 09 09090909098 INI NI NI NINN NIO* 
NOUS WN 9 OONOAU EW OOO NOUS WHO 


oon 
sooo 


42 41 39 38 37 36 35 34 ? 


Ow 


ogrmere to text, 0, 2Ac!s, gs St 90:44:39 


-SBTTL DECLARATIONS 
; INCLUDE FILES: 


: EXTERNAL DECLARATIONS: 
: -DSABL GBL 


-EXTRN OTS$_OUTCONERR 


> MACROS: 


t EQUATED SYMBOLS: 


: PSECT DECLARATIONS: 


-PSECT _OTSSCODE PIC, USR, CON, REL, LCL, 
EXE, RD, NOWRT, LONG 


: OWN STORAGE: 


LETTERS: 


eASCII = /0123456789ABCDEF / 


AX/VMS Macro v04-00 
LIBRTL.SRCJOTSCVTLT.MAR;1 


Prevent undeclared 
symbols from ie 

automatically global. 
error code 


SHR, = 


; Characters for output 
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ete OTSScvt TO : Long to text, 0 rake ose b=19 4 99343308 LIBRTL.SRCJOTSCVTLT.MAR; 1 - (4) 
, -SBTTL OTSSCVT_L_70 = Long to text, 0 format 
FUNCTIONAL DESCRIPTION: 


This routine converts its input value to a text representation, 
using base 8 (octal). The input value may be of any Length. 


OTSSCVT_L_TO supports FORTRAN Ow and Ow.m output conversion. 


; A separate entry point FORSCNV_OUT_O is provided for compatibility 
; with previous releases. Note that the input value for 

: OTSSCVT_L_TO is by reference while that for FORSCNV_OUT_O is 

: by value. 

; CALLING SEQUENCE: 


status.wle.v = OTSSCVT_L_TO (value.rx.r, out_string.wt.ds 
, int_digits.rl.v 
, value_size.rl.v 
» flags.rbu.v 
, bit_offset.rl.vJJ]J) 


status.wlc.v = FORSCNV_OUT_O (value.rl.v, out_string.wt.ds) 


; INPUT PARAMETERS: 


OOOGOOOCSCooooooooooooooooooooooooooooooo 


a ae ed ed ed = dd 8 8 8 a = = 8 a = 8 a 2 


00000004 value = 4 ; Input value to be converted to text 
0000000C int_digits = 12 ; Minimum number of digits to be produced. 
; If actual number of significant digits 
: is smaller, seeesne zeroes will be 
; produced. If int_digits is zero 
; and value is zero, a blank field will 
: result. The default is 1. 
00000010 value_size = 16 ; The size of value in bytes. The 
; default is 4 if this argument is not present. 
: If V.SIZE_IN_BITS set. value_size is in units of b 
00000014 flags = 20 ; Caller supplied flags 
0000000 -SIZE_IN_BITS = 2 ; ‘‘vatue_size’’ is in bits rather than bytes. 
0000001 bit_offset = 24 ; Starting bit position. Default is 0. 
0 : 
0 ¢ IMPLICIT INPUTS: 
; NONE 
> OUTPUT PARAMETERS: 
00000008 . out_string = 8 ; Output string by descriptor. 


IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
SS$_NORMAL - Successful completion. 


a a ed ed 8 od 8 8 od od = = = 


DVIPS IVT B® BBS BS BE EE AAAI AIA III PPONIPININPIPONUDY 2 2 OO SS SS OOOOOOOO 


CONAN AN SO OD NAN EWN O OO NAU EWN SO OONOA UE WW $$ O OONAU ES WHO OONAUE UTP 


Sooooooo: 
SOOOOOOCOSCOOoOooooSooo 


emt 


57 


57 


57 


01 


64 


76 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
OOFC ! 
43 01 
0158 3 Big 
20 «0 Bat 
09 11 001C 
Bote 
OOF C 030 
C 0 
i588 
027 
0027 
bp ? 
51 DO 0027 
53 CF. O(O02A 
0006 00 f 
0018" 00 
2A =611—=«—«0032 
bose 
5 EF 0034 
E 13 0039 
8 30 O03 
; 8 Bh 
6 D7 0045 
2 11 0047 
EF 0049 
; 8 Bs 
1 8 
2 07 0058 
6 07 3A 
8 11 C 
EF 5 
A 13 006 
¢ 0 006 
68 
co 88 
i 2 
5 (te 
1 1A 


So So 
DOMOUF LON NN FAUIVWNUM EE NW 


“ 
~N 
i=] 
w 
Says 
oooNnS 


ngword to text, 0 
= Long to text, 


118: EXTZV 
B 


——  § § “~ HOODOO OO0CO 00000 OO OOO 0909 GY 00 09 09 09 09 09 09 SI NI NI NINN NINN NIA AAA AOAOOOU 
API ODS NO AP UI ODO NOU WN 2 ODO0 NOURI 2 DOI WOVEN ODO or own ove 
—s 


PIPPI IM IP IPIMININ IN INIA NIN a td nh hh hd 


SIDE EFFECTS: 
NONE 
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OTS$_OUTCONERR = Output conver 
does not fit 
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sion error. The converted value 
in the field provided. The field 


is filled with asterisks. This error is also 
given if value_size is not positive. 


FORSCNV_OUT_O, “M<R2,R3,R4,R5,R6,R7> 


value(AP), R4& 
INITIALIZE 


, R 
COMMON_O 


3; Address of value 

3; Set up default values 
; Value MUST be 4 bytes! 
; Go to common routine 


-ENTRY OTSSCVT_L_TO , “M<R2,R3,R4,R5,R6,R7> 


MOVL 
BSBW 


12$: EXTZV 


B 
13$: EXTZV 
408: ADDL2 


EXIT_O: 


value(AP), R4 
INITIALIZE 


(R4), R7 


itt 
SCR7J, -(R1) 


(R4), R7 


bb 
SCR7], -(R1) 


I 


T 
#8, (R4), R7 
F bt 
RSCR7J, -(R6) 


—BDRBDONLWMVDDAONMBMDZ®ONMD 2D 


; Address of value 
; Set up default values 


last set char address 
Select on bits remaining 


extract one bit 

f zero, exit 

fill with zero to this point 
move character 
decrement digits count 
decrement place holder 


extract 2 bits 

if zero, finish 

fill with zeroes 

move character 
decrement digits count 
decrement place holder 


exit 
; extract 3 bits 
ship insert if zero 
fill with zeroes 
move character 
decrement digits count 
ncrement position 
decrement character pointer 
decrement count 
continue if not done 


more zeroes to fill? 


ngword to text, 0 


K 15 
ae be 8, 16-SEP-1984 
= Long to text, 1 


—N 
ws 


‘090000 CD Co 
Woo Soruw—ow 


9 VAX/VMS Macro v04-00 


ou 


no 
insert R2 zeroes 

we aren't writing a char here 
fill with zeroes 

Blank fill? 


No 

Move a blank 
Loop tiil done 
$S$_NORMAL 
exit 
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= Conve rt tonguord to text, 0 
OTSSCVT_ 


00000004 
0000000C 


00000010 


00000014 
Bopooes 
0000001 


00000008 


TZ = Long to text, 2 Ta 6-SEP-19 


FUN O ODNOAUES WN 0 ODNAUE WN O ODNOAUS WN" OOOon 


DPAEPREDAPEDPEA AAAs & PPP LL 


B, 16-SEP-1984 00:24:59 YAX/VMS Macro. 04-00 ° ? 
Be 99:48:38 HM HNTE Becta YOt=0e un. Page Of, 1-0 


: -SBTTL OTSSCVT_L_TZ = Long to text, Z format 
: “FUNCTIONAL DESCRIPTION: 


This routine converts its input value to a text representation, 
using base 16 (hexadecimal). The input value may be of any Length. 


OTSSCVT_L_TZ supports FORTRAN Zw and Zw.m output conversion. 


A separate entry point FORSCNV oe 2 is te gem for tahini: 
with previous releases. Note that the input value 
ee A L.1Z is by reference while that for FORSCNV “OUT 2 is 

y value.” 


CALLING SEQUENCE: 


status.wlc.v = OTSSCVT_L_TZ mg mses Aw thas -wt.ds 
” s.r 

° han ewsizecrly v 

» flagscrbu. 


, bit sof fset. rl.vJJJJ) 
status.wlc.v = FORSCNV_OUT_Z (value.rl.v, out_string.wt.ds) 


INPUT PARAMETERS: 


; Input value to be converted to text 

; Minimum number of digits to be produced. 
; If actual number of significant etgits 

; is smaller, if dae digs zeroes will 

; produced. igits is zero 

; and value Rt. zero, a blank field will 

; result. The default is 1. 


value = 4 : 
value_size = 16 ; The size of value, in bytes. The 


int_digits = 12 


; default is 4 his argunent is not present. 

; If flags bit V seize rin is set, value_size 
; is the number Of bits Tn the value. 

la ous ; Caller supplied ean: Defined bits are: 


= 20 
SIZE_IN_BITS = 2 ‘value_size’’ is in units of bits 
bit” “offset = 24 : offset” of aalien in bits. Defautt is zero. 


IMPLICIT INPUTS: 

; NONE 

; OUTPUT PARAMETERS: 

; out_string = 8 Output string by descriptor. 


: IMPLICIT OUTPUTS: 
| 
| 
| 
| 
| 


: NONE 
> COMPLETION CODES: 


M15 
ngword to text, . qe B, Mas at 4 9 90:49:39 AX/VMS Mac 
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Tr 8te OTS$cV TZ = Long to text, mat SEP=19 — 3, 


r 
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SS$_NORMAL - Successful completion. 

OTSS_OUTCONERR = Output conversion error. The gonverted value 
does not fit in the field provided. The field 
is filled with asterisks, This error is also given 
if value_size is not positive. 


; SIDE EFFECTS: 


e 
TL 
94 4; 
94 > 
94 $ 3 
94 : 
94 8 : 
94 : 
94 0; 
94 91; 
94 3 : NONE R 
94 93; ) 
ee a 
OOF C O34 38 ENTRY FORSCNV_OUT_Z, “M<R2,R3,R4,R5,R6,R7> eat 
54 OG A 3 6096 98 MOVAB value(AP), R4 3 Address of value FLA 
0007 30 009A 299 BSBW = INITIALIZE : Set up default values FOR 
53 20 00 009D 00 MOVL #32, ; Value MUST be 4 bytes! FOR 
09 «11 o0A3 91 BRA COMMON_2Z ; Go to common routine fon 
OOF C One 08 -ENTRY OTSSCVT_L_TZ , *M<R2,R3,R4,R5,R6,R7> NI 
54 04 AC 0 O0A4 05 MOVL value(AP), R4 ; Address of value LET 
00c9 30 OOA8 06 BSBW Ss INITIALIZE > Set up default values MLN 
00AB 0 
QO0AB 08 
00AB 309 COMMON_Z: 
56 51 DO OOAB 10 MOVL R1, R6 ; last set char address 
02 01 53 CF QOAE 11 108: CASEL R53, #1, #2 ; Select on bits remaining 
0008" 00B2 iF 1$ <WORD 11$-1$ : 1 bit 
OO1E* 0084 1 ~WORD \¢3-13 : é bits 
0034" 008 14. -WORD 13$-1$ : 3 bits 
42 11 008 15 BRB 14$ ; 4 or more bits 
00BA 16 : can't be zero 
57 64 01 55 #=EF OOBA 17 11$: EXTZV RS, #1, (R4), R7 3 extract one bit 
57 13 OOBF 318 BEQL = EXIT _2 : if zero, exit 
OOFO 30 00C1 19 BSBW ZERO ae : fill with zero to this point 
71 +FF37 CF47 90 00C4 0 MOVB LETTERSCR7], -(R1) 3: move character 
52. D7 OOCA 1 DECL R2 ; decrement digits count 
56 D7 cc ¢ DECL R6 ; decrement place holder 
48 11 43 BRB EXIT i 
57 64 02 55 #4€F 00D 4 128: EXTZV RS, F2, (R4), R7 3 extract 2 bits 
41 15 0005 5 BLEQ Exit 2 : if zero, finish 
OODA 30 0007 § BSBW ZERO aye 3; fill with zeroes 
71 FF21 CF47 90 DA MOVB LETTERS R7), -(R1) 3 move character 
52. (OD E 8 DECL R ; decrement digits count 
56 D7 OOE 9 DECL R6 3; decrement place holder 
6 11 E 0 BRB EXIT { : exit 
7+ «& @ Fe £6 1 13$: EXTZv RS, B35, (R4), R7 3 extract 3 bits 
28 413 «O0EB : BEQL =e Exit _7 : skip insert if zero 
00C4 OED BSBW ZERO cab : fill with zeroes 
71 =F FOB CF47 FO 4 MOVB LETTERSCR7], -(R1) 3 move character 
2 D re 5 DECL 8 :; decrement digits count 
6 07 F § DECL R 3; decrement place holder 
if 11 FA BRB EXIT ; 
57 66 04 5§ FF FC 8 148: EXTZV RS, 94, (R4), R7 3 extract 4 bits 
08 3 gt BEQL 40$ ; skip insert if zero 
OOAE 30 0103 40 BSBW ZERO_FILL ; fill with zeroes 
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ata OTsscy ee: Stone to cont. i Bette met 90:98:86 LIBRTL.SRCJOTSCVTLT.MAR; 1 . wath 
76 =FEFS CF47 90 4) MOVB LETTERSCR7], =-(R6) 3 move character 
55 66 4 {$ sos: Rbot2 BE, ks B Gepeeeed colitis 
ssf MT Hg gree a i drcrenent @haracter pointer 
: decrement coun 
96 1A 46 BGTRU 108 ; continue if not done | 
48 EXIT_2: 
52 05 43 . stl R : ; more zeroes to fill? 
: no 
51 56 53 3 51 SUBL3 R2, R6, RI 3; insert R2 zeroes 
5 6 26 INCL ; we aren't writing a char here 
OO8F 5 BSBW ZERO_FILL ; fill with zeroes 
50 605 8 54 30$ TSTL RO 3; Blank fill? 
06 15 55 BLEQ 50$ 3; No 
76 ¢? 90 0 2$ 40$: MOVB #*A/ /, -(R6) :; Move a blank 
FA 50 «6FS (OO 5 SOBGTR RO, 40$ : Loop till done 
50 01 pd ~0 58 50S: MOVL #1, RO ; SS$_ NORMAL 
04 0 59 : exit 


K—IOVMWMNOOCDZEl ACH TO MOODS Sl KOK ITO *MVOCMZ Sl KCK TAM IOWOZ Sr ACTA ™MIOOW 
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= -SBTTL OTSSCVT_L_TB = Long to text, binary format 
FUNCTIONAL DESCRIPTION: 


This routine converts its input value to a text representation, 
using base 2 (binary). The input value may be of any length. 


CALLING SEQUENCE: 


status.wic.v = OTSSCVT_L_TB (value.rx.r, out _string.wt.ds 
, int_digits.rl.v 
» value_size.rl.v 
- flags.rbu.v 
, bit_offset.rl.vJJJ)) 


NOUS wr 


75 


SN NN NNSA AAA OAOAOOAO 
Pe Pet 


; 78 INPUT PARAMETERS: 
00000004 01 7 value = 4 ; Input value to be converted to text 
0000000C 01 7 int_digits = 12 3 minimum number of digits to be produced. 
1 80 3; If actual number of significant digits 
1 81 : is smailer, Leeding zeroes will be 
1 8 : produced. If int digits is zero 
01 8 ; and value is zero, a blank field will 
1 84 3 result. The default is 1. 
00000010 01 85 value_size = 16 3; The size of <u in bytes. The 
1 8 ; default is 4 if this argument is not present. 
01 8 ; If flags bit V_SIZE_IN_BITS is set, value_size 
1 88 ; is the number Of bits Tn the value. 
00000014 01 89 flags = 20 : Caller supplied flags, Defined bits are: 
Boson s 1 90 V_SIZE_IN_BITS = 2 : ‘'value_size’’ is in units of bits 
0000001 ; 4 bit_offset = 24 ; Offset of value in bits. Default is zero 
1 93 ; 
: 3 ; IMPLICIT INPUTS: 
1 36 ; NONE 
1 mr fs 
: a8 ; OUTPUT PARAMETERS: 
00000008 , ret y out_string = 8 ; Output string by descriptor. 
40¢ : IMPLICIT OUTPUTS: 
1 404 ; NONE 
1 405 ; 
: $3 3; COMPLETION CODES: 
1 £38 : S$S$_NORMAL - Successful completion. 
1 409 ; OTSS_OUTCONERR = Output conversion error. The converted value 
1 410 ; does not fit in the field provided. The field — 
1 411 ; is filled with asterisks, This error is also given 
! 216 : if value_size is not positive. 
1 414 ; SIDE EFFECTS: 
1 415 ; 
1 oi8 3 NONE 
1 417 ; 


EXIT_B: 
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T8te OTS$cV 18 : Long to text, binary form o-SEp=1 984 99:99:86 LIBRTL.SRCJOTSCVTLT.MAR; 1 
ag 
2 y -ENTRY OTSSCVT_L_TB , “M<R2,R3,R4,R5,R6,R7> 
4 ¢ MOVL value(AP), R4 ; Address of value 
9 4 ; BSBW ss INITIALIZE : Set up default values 
C 425 MOVL R1, R6 ; last set char address 
F 4&4 § 10$: EXTZV RS, #1, (R4), R7 3; extract 1 bits 
44 4 BEQL 20$ : skip insert if zero 
+8 4 8 BSBW ZERO ae ; fill with zeroes 
4 4 MOVE LETTERSCR7], -(R6) 3 move cheracter 
¢ 450 DECL R ; decremen* digits count 
431 20$: DECL 2 : decrement character pointer 
; 4 § INCL R5 ; increment bit position 
4 DECL R3 ; decrement bit count 
E6 : ¢ BGTR 10$ ; loop back if more bits 
4 
439 
438 
439 
440 


OOFC 
+ 8 88 
ow RHE 
0B i] 
76 =6FEB2 CF : 
D7 
Bs 
14 
: 
0 


| 
3 
52 v5 9 TSTL 3 zs more zeroes to fill? 
09 3 8 BLEQ 30$ 3 no 
51 56 26 C D SUBL3 Ree R6, R1 ; insert R2 zeroes 
5 88 1 INCL R 3 we aren't writing a char here 
0006 2 3 «441 BSBW ZERO_FILL : fill with zeroes 
5 D $ 442 30$: TSTL RO ; Blank fill? 
6 15 44 BLEQ 50$ 3; No 
76 0 re A 666 408: MOVB #*A/ /, -(R6) 3; Move a blank 
FA 50 OF D 445 SOBGTR RO, 40$ + Loop till done 
50 01 et) 9 as 50$ MOVL , ; SS$_NORMAL 
04 44 RET 3 exit 
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04- 
Local subroutines LIBRTL.SR CVTLT.MAR;1 
174 «449 -SBTTL Local subroutines 
174 «450 
176 «9451 34 
1M 128 : INITIALIZE = Perform common initialization 
1746 4454; 1. RO gets string length. 
174 «694455; ¢: Ril gets address of 1 byte past end of out_string. 
174 rt s - R2 gets int_digits value. 
1746 «4457; 4. R5 gets value size in bits. 
174 $28 3 5. RS gets starting bit position 
1746 «04459 ;- 
174 $69 
174 461 INITIALIZE: 
50 08 BC 7D 0174 re MOVa @out _string(AP), RO ; Get string descriptor 
50 0 3¢ 0178 46 MOVZWL RO, RO ; RO gets string Length 
2) 0 CO 0178 464 ADDL2 RO, R1 ; R1 has 1 past last byte 
¢ 01 DO OI17E 465 OVL #1, R2 ; default digits in int 
5 ¢0 DO 0181 $08 MOVL #32, R3 ; default size in bits 
D4 0184 46 CLRL R5 ; default bit offset | 
57 08 »pdO 0186 468 OVL #8 ; Default multiplier size-to-bits 
06 O02 6C F 0189 469 CASEB (AP), #2, #4 ; Select on argument count 
0026" 018D 470 18 . WORD g0s-f : é arguments 
0022° O18F 471 «WORD 0$-1$ : 3 arguments 
0016° 0191 $76 «WORD 40$-1$ : 4 arguments 
Q00E’ 0193 47 -WORD 50$-1$ : 5 arguments 
Q00A' 0195 474 «WORD 60$-1$ :; 6 arguments 
0197 475 ;_ fall through ; Assume >6 arguments 
55 18 AC DO 0197 ore 60$: MOVL bit_offset(AP), R5 ; Get bit offset 
0314 ac 02 €1 0198 477 50$: BC #v_SIZE_IN_BITS, flags(AP), 40$ ; Bit not set? 
57 — 1 24 BiAg 478 MOVL #1 ; value_size is in bits 
53 57 10 AC CS O1A3 479 40S:  MULL3 value_size(AP), R7, R3 ; Get stze in bits 
1D 1D O1A8 480 BVS RROR ; Error if overflow 
03 12 O1AA 481 BNEQ : Ok if not zero 
53 20 DO OAC rt MOVL #32, R3 ; Assume bits 
52. OC AC DO OI1AF 4835 30S: MOVL int_digits(AP), R2 ; Get int digits argument 
05 0183 484 20$: RSB : End of Tnitialization 
9184 485 
01B4 486 
01B4 487 ;+ 
aise $38 ; ZERO_FILL - Fill in skipped zeroes 
Sipe 490 ; ZERO_FILL is called whenever a main routine wishes to output 
0184 491 ; a non-zero digit. First, it checks to see if there is room 
nie $36 3 or one more character. If not, it branches to ERROR. 
184 493; It then fills with zeroes the space between the last non-zero 
0184 494 ; digit and the current location, if any. It also updates the 
184 495; character pointers and counts appropriately. 
1B4 $36 :- 
184 49 
1B4 $38 ZERO_FILL: 
50 D7 0184 49 DECL 0 ; Reduce char count 
F 19 Q1B6 00 BLSS ERROR : If negative, out of room 
56 1 01 0188 3 CMPL R1, R6 ; Any difference? 
01 19 A7BB : BLSS 108 : Yes 
9? 1BD RSB ; No, exit 
76 Hs ’ 1BE 4 10$: MOVB #*A/0/, -(R6) ; Move a zero 
D 1C1 5 DECL R2 ; Decrement digits count 
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00 1 
Local subroutines -SEP-1984 LIBRTL.SRCJOTSCVTLT.MAR;1 (7) 
- 6 ie y BRB ZERO_FILL ; Loop till done 
1C 8; 
1C¢ 9 ; * ERROR - Return output conversion error 
Bit 19 5 5 Not used by L format. 
1¢ 12°. 
1C 13 ERROR_CALL: ; Called by I format 
003C I$ Ae: .W “M<R2,R3,R4,R5> 
1C€7 16 ERROR 
50 08 f 7D 01C7 1 MOva a@out Stews byt RO : Get string descriptor 
61 50 2a f. 2c 01CB 18 MOVCS @# #7, RO, (RI) 3 Fill with * 
50 00000000'8F BO O11 19 MOVL cots” SOUTCONERR.” RO ; Output conversion error 


or 
1 
“Ana 
wo 
os 


00000004 
0000000C 


00000010 


00000014 
00000000 


00000008 


® 
i) 
—- 


ngword to text, 0 
= Long to text, 


ac 
——_— 
-O 


CALLING SEQUENCE: 


PUPVDVPVWIVIVSIVSUSVSTSTUS VSS 
WAWIWWIWWIWIIWInononononononory 


INPUT PARAMETERS: 


; IMPLICIT INPUTS: 


; OUTPUT PARAMETERS: 
= 8 


NNNNAAAAAAAAAOMMMNUMNMMNUA ERR PRR RR RE 


; IMPLICIT OUTPUTS: 


FAN = 9 ODNAUE WN $$ O OONAUE WN O ODNAU EWN CO OONAUE WIN OWOONAOUS Wry 


pe 
w 


~ 
ono 


a a ed od dd td = = dd dd wd Sd wd 3 od a 
| 


GCUVCVCVCVCOCVCVVIVCVCVTVOVCVCVCVVCVVCVVOVUVTVVVCVVVVCVVCVVCCVVVOVVVTVTVTCTVTVT00"0"C0C0"0 


: 
0 
i] 
0 
0 
Q 
0 
0 
0 
0 
0 
] 
0 
0 
Q 
0 
0 
0 
Q 
0 
0 
i] 
" 
0 
0 
0 


WDOOOOOOOODOODOOOOOOOOOOOODOODOOOODODODOOOODOVDOOVODOVOOODODODOODOODOOVOOONOO 


(DV PIVPVLVIV DV DIV DV LULU PVLIVLVLIVUIVLUSUSUSUSUSUSUST SUITS SITIO 


; COMPLETION CODES: 


F 16 
{ Honte’ y* 
-SBTTL OTSSCVT_L_TI = Long to text, I format 
FUNCTIONAL DESCRIPTION: 


This routine converts its input value to a text representation, 
using base 10 (decimal). 


OTSSCVT_L_TI supports FORTRAN Iw and Iw.m output conversion. 
A a entry point ery +e I is provided for Os amahenctiine 


revious releases. 
sc(te L.Tl is by reference while that for FORSCNV “OUT. 1 is 


= OTSSCVT_L_TI ‘omen g 


12 


16 


= 20 
= 0 


o v04-00 
OTSC CVTLT.MAR; 1 


hat the input value 


- tring. wt.ds 


° vette? *tlags. Uy vJJ)) 
= FORSCNV_OUT_I (value.rl.v, out_string.wt.ds) 


Input value to be converted to text 
Minimum number of digits to be produced. 
If actual number of phe abd ry, digits 
is smaller, leading zeroes will — 
and value is zero, a blank field will 


The size of value in bytes. 
yregonte value_size must be either 
or f"value_size is 1 or 2, the 
value is sign extended to a longword 
before conversion. 
4 if this argument is net present. 
Flags supplied b 
f set, a plus s 
for positive values. 


The default is 


n wilt “be forced 


; Output string by descriptor. 


egg 


00000008 
00000100 


007¢ 


14 
06 00 10 


SSsss 
0909 "Ww" OW SI" OO OO Oo Cl 


ngword to text, 0 qe 
= Long to text, { format ~SEP-1984 


me 
—-— 
moO 


DPV WSU SVSVSUSVS VSS TSS VOSS ISIS 


OOOO0O000O0O0OOWMOdcCDCIaDCDCDOO~ 


WO ODNAUES WN" OOONAOUS wr On 


SOSSOOOSSSOOOOSOSOSOOOSOOOOOOSOSOOOOOSOODOODOODOOOODOODOOOOOOODODO0O00 
POROPOPOPOPOPOPOPOPONIPONITOINONINOND 2  — 9 9 SS SS SSS 


MSO" @ — OOWwWTOonNSO-oCo — 
999 NW" 9D NSNMOM EO SUN MH WOOS SMVOM SWOOSH FOMDD OOWOOOOOOOODOOOVDODODOODoOwowowo 


POMIPONIPONINY 2 2 2 S$ SQOCOCO NN NNN NHMMMMMMMNoOCOVCVVTVTVVTVTVTVVVCVCUVVTVCVCVTVTVUTUTSJT 


MEW OO NAUES WI OO ODONOAOUS WN O0 


WWII AIAICOPOPOPOPOPONOPUNUPD 2 2 


PDRAP2RAEAALAAAAAAAAAAAA AA AAA AAA AO 


So 
@ 
— 
oo 


=. 
B, 16-SEP-1984 rate ; 


4:59 VAX/VMS Macro v04-0 p 
3:06 ELTORTE.eeeiorecvTcy.mar:1 2% 


letion. 
on error. Either the i 


d not fit in the field provided or 


byte count was not 1, 2 or 4. 


3 S$S$_NORMAL - Successful cong 
: OTSS_OUTCONERR - Output cenvers 
: with asterisks. 
; SIDE EFFECTS: 
: NONE 
3¢ 
; Definition of flag bits. 
V_NEGATIVE = 8 
Me NEGATIVE = 18V_NEGATIVE 
-ENTRY FORSCNV_OUT_I, “M<R2,R3,R4, 
MOVL #1, R4 3 
CLRL R5 ; 
MOVL value(AP), RO : 
BRB COMMON_1I : 


sENTRY OTSSCVT_L_TI, “M<R2,R3,R4, 


CLRL $ 
CASEB (AP), #2, #3 ; 
1$: WORD $-{$ : 
-WORD 44$-1$ ® 
-WORD 40$-1$ : 
-WORD 50$-1$ : 
BRB $ $ 
20$: 
MOVL #1, RG s 
MOVL @value(AP), RO 3 
BRB COMMON_ 
50$: MOVB caller_flags (AP) 3 
40$: CASEL value SizeCAP), hon 06 : 
2s: -WORD 44$-2$ : 
«WORD 41$-2$ : 
-WORD 42$-2$ : 
-WORD ERROR _I-2$ 5 
-WORD  44$-25 : 
BRW ERROR_I ; 
41$ avout value(AP), RO 3 
42$: CVTWL gyetuetar?, RO : 
BRB g 
44$ MOVL @value(AP), RO 3 
30$ MOVL int _digits(AP), R4 3 
TSTL RO ; 
COMMON_I: 
BGEQ  COMMON_IU : 


he field co filled 


; Bit to set in R5 if negative 
: Mask for V NEGATIVE 


R5,R6> 


Number of integer digits 
No flags 

Value is in argument List 
Go to common routine 


R5,R6> 


Assume no flags 
Select on argument count 
¢ arguments 
arguments 
4 arguments 
arguments 
assume >5 arguments 


; Get integer digits 


longword value 


; Get flags 
; Select on value size 


- assume 4 bytes 


; other, error 
; Convert byte 


Continue 


. ee | word 

; Continue 

; Convert Longword 

; Get integer digits 

; Set condition Jodee for test 


Skip if value positive 


~~ 


5 
—— 


$ 


n 
C 


mo 


ve 
VT 


oe 
= 


C 
S 
8 
E 
4 
D 
6 
1 


"OWNS OP 


prety SA ort 
Mun On 


OOCCOCOOOCOOOCOOOCOOOCOOOOOOoOO 


POPIPOIPOPIPPIPIPIPINININIPONPITOPIPIPIPIPIPIPIPININD 


PUSUSU SUSU EBS BS BS IAAI 


"o-oo 
+owon 


$5 S8=S855 


COOOCOCOOCOCOOOGCOCOCOOCOOSOOOCOOOSoOOoOoOOO 


POPOIPIPOPIPIPIPYASTPINININININININININNINININININININY 


OmovViVvyvonwoo 
WO*"VIOwWDWO®W 


— 
ab 


RSzS 


n> 
Pd 
ONNNOWO 9 9999 DOA FS MOHDHLHLLL LE MOYP PPP POA LIMO PNM ONIN 


0090909090909 SII SSI NI NSN AAO 


oOo 
x 


ngword to text, 0 
= Long to text, 


BISw2 sO NEGATIVE. R5 
MNEGL RO, R 


° 
| 


PAEAAPA AO AOAC OA 


POAC OAAO 


661 


674 


PAPA OSA AAOAOAAO 


Cococe Cogeco co GoGo NI NIN 


Cae, R2 


all significant digits. 
#10, RO, RO, R6 
R2 


ORI 
4 /07, R6, -(R3) 


ERROR I 
B #*A/07, =(R3) 
SOBGEQ R4, 20$ 


sign, if needed. 


FORCEPLUS, R5, 50$ 
A/+/, RO 


fill remainder, if needed. 


(AP), W*ERROR_CALL 


ONAULSWN—OOOanouw 
e@ete 


90: 64:39 woe Macro V04-00 
713:06 CLIBRTL.SRCJOTSCVTLT.MAR;1 
; Indicate negative 

; Get absolute value 


; Clear low-order pars of value 
; Get descriptor in R2-R 


Get length in R2 
Get address of last+1 character 


; Store digits 


Get quotient in RO-R1, remainder in R6 


Decrement length 

Error if no aore chars left 
Store next digit 

Decrement zero-fill count 
Are we done now? 

Loop if not 

Fill in leading zeroes 


s¢ 
; Fill in any leading zeroes needed. R4 has remaining zero count. 


1 less character 
Have we run out? 
Move a zero 

Loop till done 


Skip if value negative 
Test for forced plus 
Use plus sign 

Rejoin common code 


; Use minus sign 


1 less character 
Have we run out? 


Move sign , ee 
: Blank fill, if n 


eeded. 


R2 has remaining blank count. 


3; Move a blank 
; Loop till done 
; Success 


; Fill with asterisks 
; with error status in RO 


INPUT PARAMETERS: 
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TSSCVTLT = Convert longword to text, 0, Z, L, 8B, 16-SEP-1984 00:24:59 VAX/VMS Macro v04-00 Page 
orate OTS$cVT_L_TU : Long to text, unsigned de mets y 90:49:86 EMTARTL. SReJOTSCVILT MAR: 1 . 

9 ag -SBTTL OTSSCVT_L_TU = Long to text, unsigned decimal format 
} ; FUNCTIONAL DESCRIPTION: 
9 : This routine converts its input value to a text representation, 
2 : using unsigned base 10 (decimal). 
: ; CALLING SEQUENCE: 
99 ; status.wic.v = OTSSCVT_i_TU (value.rx.r, out_string.wt.ds 

3 » int _digits.rl.v 

; » value_size.rl.v 
0 ; . caller_flags.rbu.vJJ]) 
05 : 
06 ; 
0 
0 
0 


(G2 CD 00 0D CD CD GD 0D 0D 0D GD CD CD CD 0D CD 0D CD CD CD GO CD CD CD ODOD 


bh hm hm) mh) ~~) hh ~~) ~ hh) ~ ) ~ ) ~ ) ~ hh ~~) ~ ) ~~) ~) ~~ ~~) ~~) ~~) ~~) WW 


00000004 value = 4 ; Input value to be converted to text 
0000000C¢ int_digits = 12 3; Minimum number of digits to be produced. 
; If actual number of significant digits 
; is smaller, leading zeroes will be 
; produced. If int digits is zero 
; and value is zero, a blank fieid will 
: result. The default is 1. 
00v00010 value_size = 16 : The size of value in bytes. If 
; present, value_size must be either 
; 1,2 or 4. If value_size is 1 or 2, the 
; value is sign extended to a longword 
; before conversion. The default is 
:; 4 if this argument is not present. 
00000014 caller_flags = 20 ; Flags supplied by caller: 
; IMPLICIT INPUTS: 
: NONE 
3; OUTPUT PARAMETERS: 
00000008 out_string = 8 ; Output string by descriptor. 


IMPLICIT OUTPUTS: 

3 NONE 

; COMPLETION CODES: 

: S$S$_NORMAL - Successful completion. 

: OTSS_OUTCONERR = Output conversion error. Either the converted 


value did not fit in the field prev idee or 


the 
byte count was not 1, 2 or 4. The fieid is filled 


with asterisks. 
; SIDE EFFECTS: 
NONE 


NNN NNN NNN NTI IO AAO OCOOOO 


BREE LHF FAWN WIWIWIWIIIIRINPINININPIPINININD 2 2 OO Oe ot 


BALA O ODNA NE WIN @ O ODNAUE WIN $$ SO ODNAUE WN 0 ODNOU EWN OONOAUS UNO 


OOOCOOCOOCO OOOO OCOOOOOOOOCOOOOSOOCSOOOCOCOOOOOOOOOOOoOoOOo 
POPPOPPYPIPNINYPINIPONINYNINIPIPINPININININPINPIPIPIPSPINPIPINPININIPUNINY 
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TSSCVTLT - Convert longword to text, 0, 2, L, B, 16-SEP-1984 00:24:59 YAX/VMS Macro v04-00 Page 1 
abt OTsscVT_L_TU : Long to text, unsigned de raat ae 90:93:38 LIBRTL.SRCJOTSCVTILT.MAR; 1 . (5) 
D 747 ;-- 
Dd oe 
D 749 ;+ 
: f 9 ; Definition of flag bits. 
SH 
007¢ D 734 -ENTRY OTSSCVT_L_TU, “M<R2,R3,R4,R5,RO> 
55 Be F £38 CLRL ; Assume no flags 
03 02 6 F 91 +=75 CASEB (AP), #2, #3 ; Select on argument count 
o +} £38 1$: «WORD -{$ ; 2 arguments 
2° 029 ? ORD 4$-1$ :; 3 arguments 
014° 0299 760 WORD 40$-1$ : 4 arguments 
14° 0298 761 -WORD 40$-1$ ; 5 arguments 
OA 11 ae 6 20$ BRB 40$ ; assume >5 arguments 
4 01 00 0 SF 76 MOVL #1, R4 ; Get integer digits 
50 04 86C 00 A2 765 MOVL @value(AP), RO ; longword value 
FFBE 31 O2A6 76 BRW COMMON 
06 00 10AC _ CF AJ 767 40$: CASEL value size(AP), #0, #4 ; Select on value size 
0019" . 768 2$: «WORD 44$-25 ; 0 = assume 4 bytes 
4 B 769 «WORD 41$-2$ 3; 1 byte 
0013° 8 B2 770 «WORD 42$- 3 ¢ bytes 
FFO9 B4 771 «WORD ERROR 1-2$ : 3 bytes, error 
0019° 0286 77 «WORD 44$- : 4 bytes 
FFCC 31 0288 77 BRW ERROR_1I ; other, error 
50 04 8C 9A O2BB 774 41S: MOVZBL a@value(AP), RO : Convert byte 
OA 11 O2BF 775 BRB 30$ ; Continue 
50 04 8C 3C 02C1 776 42$: MOVZWL @value(AP), RO ; Convert word 
06 11 #O02C5 777 BRB 30$ ; Continue 
50 404 BC DO O2C7 778 44$: MOVL @value(AP), RO ; Convert longword 
Oc AC DO O2CB 779 30S: MOVL int digits(AP), R4 ; Get integer digits 
FF65 31 O2CF 780 BRw COMAON_IU ; Join common code 


K 16 
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L.TL = Long to text, L format 6-SEP-1984 LIBRTL.SRCJOTSCVTLT.MAR; 1 (10) 
aa -SBTTL OTSSCVT_L_TL = Long to text, L format 

: FUNCTIONAL DESCRIPTION: 


This routine converts its input value to a text representation, 
using FORTRAN L (logical) format. 


The output field will consist of (width-1) blanks followed by: 
the letter T if the lowest bit is set; 
the letter F if the lowest bit is clear. 
A separate entry point FORSCNV_OUT_L is provided for compatibility 
with previous releases. Note that the input value for 
OTSSCVT_L_TL is by reference while that for FORSCNV_OUT_L is 
by value. 
; CALLING SEQUENCE: 
status.wlc.v = OTSSCVT_L_TL (value.rL.r, out_string.wt.ds) 


status.wilc.v = FORSCNV_OUT_L (value.rl.v, out_string.wt.ds) 


or 
“ 
ACE 
RO 
os 
<< 
eeki) 
4 


SVL wa 


PIPIPIPORIPININIMAIPNINIPIPININIADPINIPINIPINIPININIPYIPIPINIPUNPININPINPIPIPIPIPIPIPINPIPIPIPINPINPINIPONINYD 
DNASE WN OOD NAOMU EWN $$ © ODNAUES WN" OOONAOUS —Owooe 
SeSe Ge Ge Ge Ge Ge Ge Ge Sete Ge Sete See Sete te eee Bete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Gee 


W000 O00 COCD0D0DCD0D0D 


MEW OS OONOUE UT 
Se Se Se Ge Se Se Ge Se tee 


INPUT PARAMETERS: 

; value = 4 : Input value to be converted to text 
; IMPLICIT INPUTS: 

NONE 

OUTPUT PARAMETERS: 

; out_string = 8 ; Output string by descriptor. 

; IMPLICIT OUTPUTS: 

NONE 

; COMPLETION CODES: 

S$S$_NORMAL - Successful completion. 


OTS$S_OUTCONERR = Output conversion error. This can only occur 
if the output string is of zero length. 


00000004 


00000008 


; SIDE EFFECTS: 


Ahh 4-5-4 ~-4-4-4-A- 1 - h-hh AAA AAA AAA AA AAA) AAA AAA) AAA AAA A AAA AAA AAA AA 


i=) 
2» oo 


NONE 
0004 : -ENTRY FORSCNV_OUT_L, “M<R2> 
52 04 aC 90 D4 MOVB value(AP), R2 ; Get low byte of value 
06 «171 BRB COMMON_L ; Go to common routine 


RIAPDPORPIPINIPIPYPIPPPMMNINDIPPININPININIPININIPIPIPPINIPIPYPIPIPIPYININIDINIPINIPIPIPPINIPINININIPIPONNNNY 


SOOOOCCOOCOOCOCOCOSOOOOCOOOCOOS SSO OOOOOCOOCOOCOOSOOOOOOOOOOOOOCOOOOOOoOO 


WWW AAW AARIRIRIDININININMNIN — 3 9 3 3 BOOOO0OO 


0004 


\~J 
ES 


ENTRY OTSSCVT_L_TL , “M<R2> 


L 1 
OTSSCVTLT = Convert lLongword to text, 0, Z, L, B, 16-SEP-1984 4:59 VAX/VMS Macro v04-00 Pa 
Teh OTSSCVE L Tee tong content. L formate” ‘S-SEP=]oBG 11:43:06 ECTONTe.eaclorgcviesmars1 2% (99, 
dC 39 
52 04 8¢ 90 6 MOVB A@value(AP), R2 ; Get low byte of value 
E 43 COMMON_L 
50 ~=—s088 33 7D E 44 "mova Sout, gersegenre, RO 3 = descriptor 
1 i £} 12 BLEan eohon L : beret length, error 
51 45 co €9 23 ADDL2 RO, R : 1b te pest, end of string 
06 52 3 O2EC 48 BLBS R2, TRUE 3; TRUE or FALSE? 
71 46 BF EF 849 MOVB = #*A/F/, -(R1) S result is F 
: 11 ee 50 BRB EXIT : Finish 
71 54 8F 90 3 32 TRUE: MOVB #*A/T/, =(R1) 3; result is T 
O2F9 53 EXIT_L: 
50 07 O2F9 54 =>. SG RO 3 1 less character 
06 13 O2FB 55 BEQL 208 3; ALL done? 
71 ¢° 90 O2FD $28 10$: MOVB #*A/ /, =(R1) 3; Blank Tit 
FA 50 «FS (OO 99 85 SOBGTR RO, 10$ : Loop till done 
50 01 DO 030 858 20S: MOVL #1, RO 3; Success 
04 0306 859 RET 3; Return 
$307 Bei ERROR_L: 
50 00000000°8F DO 0307 Ho ~~" MOVL #OTS$_OUTCONERR, RO ; Output conversion error 
04 QO30E 86 RET ; Return 
O30F 864 
O30F 865 
O30F 866 
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Symbol table aes 09: 48506 LIBRTL.SRCJOTSCVTLT.MAR; 1 . (10) 
BIT _OFFSET = 00000018 
COMAON_I 000 ¢ fe 4 
COMMON _1U 00 5 R 1 
COMMON _L 00 59 R 01 
COMMON_O 44 R 01 
COMMON_Z 000 Te, R 01 
ERROR Bonbt E R 01 
ERROR_CALL 001C5 R 01 
ERROR_1 00008 7R 01 
ERROR_L 00000307 R 01 
ie BURR RB 
EXIT=0 90000079 Ro 
EXIT 2 00000118 R 01 
FLAGS = 00000014 
FORSCNV_OUT_1 000001D9 RG 01 
FORSCNV_OUT_L 00000 06 RG 01 
FORSCNV_OUT_O 00000010 RG 01 
FORSCNV_OUT_2Z 00000094 RG 01 
INITIALTZE 00000174 R 01 
INT _DIGITS = 0000000 
LETTERS 00000000 R 01 
M_NEGATIVE - sais dh 
OTSSCVT_L_TB 000001335 RG 01 
OTSSCVT_L_Tl 000001E6 01 
OTSSCVT_L_TL Bose 01 
OTSSCVT_L_TO QOOOOOIE RG 01 
OTSSCVT_L_TU 0000028D RG 01 
OTSSCVT_L_ TZ QO00000A2 RG 01 
OTS$S_OUTCONERR = teeeeeee 00 
OuT_STRI x popgoons 
TRUE QO00002F5 R 01 
VALUE = 00000004 
VALUE _SIZE = 00000010 
V.FORTEPLUS = 00000000 
VL TIv = 00000008 
V_SIZE_IN_BITS = 00000002 
ZERO_FILL 00000184 R 01 

en Sa 

! Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- Os, 00000000 <( -} 00 ¢ 0.) NOPIC USR CON ABS - LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
~OTSSCODE QOOOOSOF (¢ 783.) O1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 

¢erec ae seccses ocean ose eoece + 
; Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
pateses tans ten : mR 00:00:00.3 p 90:08:14 
rocessin :00:00. :00:02. 

Pass 1” . 108 0:00:01:35 00:00:08.7 


| oss VTLT - Convert longword to text, 0, 2°.,'8, i ak dt B49 90: 3:32 on 
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,VAK-11 Macro Run Statistics LIBRTL.S (10) 


S r 
L.SRCJOTSCVTLT.MAR; 1 


Symbol table sort 0 :00:00.05 7:00:00. 
Pass 5 154 :00: 0. 7:00:05. p 
Symbol table output 4 :00:Q00. 7:00:90. 
Psect synopsis output :00:00. :00:00.01 
Cross-reference output :00:00. g :00:00. g 
Assembler run totals 39 6 :00:13.1 


ly working ref} Limit was 1200 pages. 

13930 bytes (28 pages) of virtua! memory were used to buffer_the intermediate code. 

There were 10 pages of symbol table space eee to hold 39 non-local and 58 local symbols. 
' 

} 

ER ROE VE OCIA LR ONL, HL, ES BAIS LE IIE: SOE i RETR LPL AIT PN et SR I SR. ES Be Nye, ION ES 


866 source Lines were read in Pass 1, producin object records in Pass 2. 


0 pages of virtual memory were used to define 0 macros. 


pose re ces ese ene nen eee mea se hb 


Macro Library name Macros defined 
~S255$DUAZ8:(SYSLIBISTARLET.MLB:2 0 i 0 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE=( GLOBAL , TRACEBACK) /LIS=LIS$:OTSCVTLT/OBJ=OBJ$:OTSCVTLT MSRC$:OTSCVTLT/UPDATE=(ENH$:OTSCVTLT) 
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